home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / sik_pep4.zip / SLAM.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-03-07  |  5KB  |  237 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   TSTRING002(9)
  24.     String   TSTRING003(22)
  25.     String   TSTRING004(13)
  26.     String   STRING005
  27.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     TSTRING002(1) = "@X08[@X0CO  @X08] @X0CS@X04L@X08a@X07M e@X08N@X04T@X0Ca @X08[  @X0CO@X08]"
  31.     TSTRING002(2) = "@X08[@X04o  @X08] @X0CSL@X04a@X08M @X0Fe@X07N@X08T@X04a @X08[  @X04o@X08]"
  32.     TSTRING002(3) = "@X08[∙  ] @X04S@X0CLa@X04M @X07e@X0FN@X07T@X08a [  ∙]"
  33.     TSTRING002(4) = "@X08[@X07·  @X08] S@X04L@X0CaM @X08e@X07N@X0FT@X07a @X08[  @X07·@X08]"
  34.     TSTRING002(5) = "@X08[ @X0F· @X08] @X07S@X08L@X04a@X0CM @X04e@X08N@X07T@X0Fa @X08[ @X0F· @X08]"
  35.     TSTRING002(6) = "@X08[  @X07·@X08] @X0FS@X07L@X08a@X04M @X0Ce@X04N@X08T@X07a @X08[@X07·  @X08]"
  36.     TSTRING002(7) = "@X08[  ∙] @X07S@X0FL@X07a@X08M @X0CeN@X04T@X08a [∙  ]"
  37.     TSTRING002(8) = "@X08[  @X04o@X08] S@X07L@X0Fa@X07M @X04e@X0CNT@X04a @X08[@X04o  @X08]"
  38.     TSTRING002(9) = "@X08[  @X0CO@X08] @X04S@X08L@X07a@X0FM @X08e@X04N@X0CTa @X08[@X0CO  @X08]"
  39.     TSTRING003(1) = "@X07          "
  40.     TSTRING003(2) = "@X08S         "
  41.     TSTRING003(3) = "@X07S@X08L        "
  42.     TSTRING003(4) = "@X0FS@X07L@X08a       "
  43.     TSTRING003(5) = "@X0FSL@X07a@X08M      "
  44.     TSTRING003(6) = "@X0FSLa@X07M      "
  45.     TSTRING003(7) = "@X0FSLaM @X08e    "
  46.     TSTRING003(8) = "@X0FSLaM @X07e@X08N   "
  47.     TSTRING003(9) = "@X0FSLaM e@X07N@X08T  "
  48.     TSTRING003(10) = "@X0FSLaM eN@X07T@X08a "
  49.     TSTRING003(11) = "@X0FSLaM eNT@X07a "
  50.     TSTRING003(12) = "S@X0FLaM eNTa "
  51.     TSTRING003(13) = "@X08S@X07L@X0FaM eNTa "
  52.     TSTRING003(14) = "@X08 L@X07a@X0FM eNTa "
  53.     TSTRING003(15) = "@X08  a@X07M @X0FeNTa "
  54.     TSTRING003(16) = "@X08   M @X0FeNTa "
  55.     TSTRING003(17) = "@X08     @X07e@X0FNTa "
  56.     TSTRING003(18) = "@X08     e@X07N@X0FTa "
  57.     TSTRING003(19) = "@X08      N@X07T@X0Fa "
  58.     TSTRING003(20) = "       @X08T@X07a "
  59.     TSTRING003(21) = "@X0F        @X08a "
  60.     TSTRING003(22) = "@X07         "
  61.     TSTRING004(1) = "         "
  62.     TSTRING004(2) = "@X08S       a"
  63.     TSTRING004(3) = "SL     Ta"
  64.     TSTRING004(4) = "SLa   NTa"
  65.     TSTRING004(5) = "SLaM eNTa"
  66.     TSTRING004(6) = "SLa@X07M e@X08NTa"
  67.     TSTRING004(7) = "SL@X07aM eN@X08Ta"
  68.     TSTRING004(8) = "S@X07LaM eNT@X08a"
  69.     TSTRING004(9) = "@X07SLaM eNTa"
  70.     TSTRING004(10) = "@X0FS@X07LaM eNT@X0Fa"
  71.     TSTRING004(11) = "SL@X07aM eN@X0FTa"
  72.     TSTRING004(12) = "SLa@X07M e@X0FNTa"
  73.     TSTRING004(13) = "SLaM eNTa"
  74.     STRING005 = "@X07@X08[ ] @X0FS@X07La@X08M e@X07NT@X0Fa @X08[ ]"
  75.     INTEGER003 = GetY()
  76.     INTEGER002 = 1
  77.     STRING001 = Inkey()
  78.     GetToken INTEGER001
  79.     If (INTEGER001 == 0) INTEGER001 = Random(3) + 1
  80.     Select Case (INTEGER001)
  81.         Case 1
  82.             Goto LABEL001
  83.         Case 2
  84.             Goto LABEL002
  85.         Case 3
  86.             Goto LABEL003
  87.         Case 4
  88.             Goto LABEL004
  89.     End Select
  90.     :LABEL001
  91.     While ((STRING001 <> Chr(13)) && (INTEGER002 < 10)) Do
  92.         AnsiPos 29, INTEGER003
  93.         DispStr TSTRING002(INTEGER002)
  94.         Delay 3
  95.         STRING001 = Inkey()
  96.         INTEGER002 = INTEGER002 + 1
  97.     EndWhile
  98.     While ((STRING001 <> Chr(13)) && (INTEGER002 > 1)) Do
  99.         AnsiPos 29, INTEGER003
  100.         DispStr TSTRING002(INTEGER002)
  101.         Delay 3
  102.         STRING001 = Inkey()
  103.         INTEGER002 = INTEGER002 - 1
  104.     EndWhile
  105.     If (STRING001 == Chr(13)) Then
  106.         Goto LABEL005
  107.     Else
  108.         Goto LABEL001
  109.     Endif
  110.     :LABEL002
  111.     INTEGER002 = 1
  112.     While ((STRING001 <> Chr(13)) && (INTEGER002 < 23)) Do
  113.         AnsiPos 36, INTEGER003
  114.         DispStr TSTRING003(INTEGER002)
  115.         Delay 4
  116.         STRING001 = Inkey()
  117.         INTEGER002 = INTEGER002 + 1
  118.     EndWhile
  119.     If (STRING001 == Chr(13)) Then
  120.         Goto LABEL005
  121.     Else
  122.         Goto LABEL002
  123.     Endif
  124.     :LABEL003
  125.     While ((STRING001 <> Chr(13)) && (INTEGER002 < 14)) Do
  126.         AnsiPos 36, INTEGER003
  127.         DispStr TSTRING004(INTEGER002)
  128.         Delay 3
  129.         STRING001 = Inkey()
  130.         INTEGER002 = INTEGER002 + 1
  131.     EndWhile
  132.     While ((STRING001 <> Chr(13)) && (INTEGER002 > 1)) Do
  133.         AnsiPos 36, INTEGER003
  134.         DispStr TSTRING004(INTEGER002)
  135.         Delay 3
  136.         STRING001 = Inkey()
  137.         INTEGER002 = INTEGER002 - 1
  138.     EndWhile
  139.     If (STRING001 == Chr(13)) Then
  140.         Goto LABEL005
  141.     Else
  142.         Goto LABEL003
  143.     Endif
  144.     :LABEL004
  145.     AnsiPos 31, INTEGER003
  146.     DispStr STRING005
  147.     INTEGER002 = 1
  148.     Color 7
  149.     While ((STRING001 <> Chr(13)) && (INTEGER002 < 5)) Do
  150.         Select Case (INTEGER002)
  151.             Case 1
  152.                 AnsiPos 32, INTEGER003
  153.                 DispStr "|"
  154.                 AnsiPos 46, INTEGER003
  155.                 DispStr "|"
  156.                 INTEGER002 = INTEGER002 + 1
  157.             Case 2
  158.                 AnsiPos 32, INTEGER003
  159.                 DispStr "/"
  160.                 AnsiPos 46, INTEGER003
  161.                 DispStr "\"
  162.                 INTEGER002 = INTEGER002 + 1
  163.             Case 3
  164.                 AnsiPos 32, INTEGER003
  165.                 DispStr "-"
  166.                 AnsiPos 46, INTEGER003
  167.                 DispStr "-"
  168.                 INTEGER002 = INTEGER002 + 1
  169.             Case 4
  170.                 AnsiPos 32, INTEGER003
  171.                 DispStr "\"
  172.                 AnsiPos 46, INTEGER003
  173.                 DispStr "/"
  174.                 INTEGER002 = 1
  175.         End Select
  176.         Delay 2
  177.         STRING001 = Inkey()
  178.     EndWhile
  179.     If (STRING001 == Chr(13)) Then
  180.         Goto LABEL005
  181.     Else
  182.         Goto LABEL004
  183.     Endif
  184.     :LABEL005
  185.     KbdStuff Chr(13)
  186.     End
  187.  
  188. ;------------------------------------------------------------------------------
  189. ;
  190. ; Usage report (before postprocessing)
  191. ;
  192. ; ■ Statements used :
  193. ;
  194. ;    1       End
  195. ;    1       Color 
  196. ;    46      Goto 
  197. ;    66      Let 
  198. ;    19      If 
  199. ;    6       Delay 
  200. ;    1       GetToken 
  201. ;    1       KbdStuff 
  202. ;    14      DispStr 
  203. ;    14      AnsiPos 
  204. ;
  205. ;
  206. ; ■ Functions used :
  207. ;
  208. ;    7       +
  209. ;    2       -
  210. ;    13      ==
  211. ;    6       <>
  212. ;    4       <
  213. ;    2       >
  214. ;    18      !
  215. ;    6       &&
  216. ;    11      Chr()
  217. ;    1       Random()
  218. ;    7       Inkey()
  219. ;    1       GetY()
  220. ;
  221. ;------------------------------------------------------------------------------
  222. ;
  223. ; Analysis flags : No flag
  224. ;
  225. ;------------------------------------------------------------------------------
  226. ;
  227. ; Postprocessing report
  228. ;
  229. ;    0       For/Next
  230. ;    6       While/EndWhile
  231. ;    4       If/Then or If/Then/Else
  232. ;    2       Select Case
  233. ;
  234. ;------------------------------------------------------------------------------
  235. ;                 AEGiS Corp - Break the routines, code against the machines!
  236. ;------------------------------------------------------------------------------
  237.